# Draw map with sf data type

# setwd("D:/Program/RCode/Map")
setwd("D:/Code/RCode/Map")

library(ggplot2)
library(rgdal)

china_map_sf <- readOGR("./China_Province/bou2_4p.shp", stringsAsFactors = FALSE)
city_position <- read.csv("./China_Province/city.csv", stringsAsFactors = FALSE)

map_values <- china_map_sf@data
province_name <- unique(map_values$NAME)
value <- runif(length(province_name), 10, 100)
